MacWorld 1995 March/Macworld CD-ROM (March 1995).cdr/Demos/Microsoft Kids/MS Kids Demo/MSKids/00097.ls

Text File | 1995-02-01 | 3.5 KB | 166 lines

on startMovie
  global colorNumber, vga16, clock, xsmall, small, medium, large, counter, EnterCounter, flag, product, viewedCW, viewedFA, projectNum, seenComic, seenSticker, seenPicture
  if the machineType < 256 then
    set the exitLock to 1
  end if
  if the colorDepth < 8 then
    if the machineType = 256 then
      if vga16 = 0 then
        set vga16 to 1
        alert("The Microsoft Home demonstration looks best with your system setup to 256 colors.")
      end if
    end if
  end if
  set clock to 60
  set xsmall to 2 * clock
  set small to 4 * clock
  set medium to 7 * clock
  set large to 9 * clock
  if the machineType = 256 then
    set xsmall to 2 * clock
    set small to 5 * clock
    set medium to 8 * clock
    set large to 11 * clock
  end if
  set projectNum to 0
  set seenComic to 0
  set seenSticker to 0
  set seenPicture to 0
  doTimeoutReset()
  when timeOut then doContinue
  set the textFont of field "talk" to "Palatino"
  set the textStyle of field "talk" to "bold"
  set the textSize of field "talk" to 14
  set the textFont of field "talkSmall" to "Palatino"
  set the textStyle of field "talkSmall" to "bold"
  set the textSize of field "talkSmall" to 14
  set the keyDownScript to "doKeyDown"
  set EnterCounter to 0
end

on doPause
  global EnterCounter
  doTimeoutReset()
  set the timeoutLapsed to 0
  set EnterCounter to 1
  pause()
end

on doWait a
  global EnterCounter
  set EnterCounter to 1
  delay(a)
end

on doContinue
  continue()
end

on doMenu
  set the timeoutLength to 60 * 60
  pause()
end

on doTimeoutReset
  set the timeoutLength to 10 * 60
end

on doTimeoutLong
  set the timeoutLength to 45 * 60
end

on doProjects
  global projectNum, seenComic, seenSticker, seenPicture
  set projectNum to seenComic + seenSticker + seenPicture
  if projectNum = 0 then
    go("Project1")
  end if
  if projectNum = 1 then
    go("Project2")
  end if
  if projectNum = 2 then
    go("Project2")
  end if
  if projectNum = 3 then
    go("Project4")
  end if
  go("Project2")
end

on doWhichProject
  global project, FA, seenComic, seenSticker, seenPicture
  if project = FA then
    if (seenComic = 0) and (seenSticker = 0) and (seenPicture = 0) then
      go("Comic")
    end if
  end if
  if (seenComic = 1) and (seenSticker = 0) and (seenPicture = 0) then
    go("Sticker")
  end if
end

on doKeyDown
  global EnterCounter
  if the key = RETURN then
    if EnterCounter = 1 then
      set EnterCounter to 0
      go(the frame + 1)
    end if
  end if
  if the commandDown and ((the key = "q") or (the key = ".") or (the key = "w")) and (the exitLock = 1) then
    go("Goodbye")
  end if
end

on doKeyDownExit
  if the commandDown and ((the key = "q") or (the key = ".") or (the key = "w")) and (the exitLock = 1) then
    go("RealExit")
  end if
end

on doSound a
  sound playFile 1, a & ".AIF"
end

on doClick
  doSound("CLICK")
  doContinue()
end

on doQuit
  play frame "QuitRoutine"
end

on playTheme
end

on donothing
  nothing()
end

on grabtext
  global counter
  put line counter of field "sourcetext" into field "talk"
  set counter to counter + 1
end

on grabtextSmall
  global counter
  put line counter of field "sourcetext" into field "talkSmall"
  set counter to counter + 1
end

on addtext
  global counter
  set temp to the text of field "talk"
  put temp & RETURN & RETURN & line counter of field "sourcetext" into field "talk"
  set counter to counter + 1
end

on addtextSmall
  global counter
  set temp to the text of field "talkSmall"
  put temp & RETURN & line counter of field "sourcetext" into field "talkSmall"
  set counter to counter + 1
end